home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / pbank21b.zip / AWARD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-06-16  |  2KB  |  148 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   TSTRING005(10)
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     INTEGER004 = 4
  31.     GetToken INTEGER001
  32.     STRING004 = "award" + GetToken()
  33.     If (GetEnv("PBANK")) Then
  34.         Tokenize GetEnv("PBANK")
  35.         GetToken STRING003
  36.         GetToken STRING003
  37.         GetToken STRING003
  38.         GetToken STRING003
  39.         GetToken INTEGER004
  40.     Endif
  41.     If (Psa(6)) Goto LABEL001
  42.     Log "You must have the NOTES PSA installed for Awards.", 0
  43.     Goto LABEL005
  44.     :LABEL001
  45.     GetUser
  46.     If (U_Notes(INTEGER004) == "") Then
  47.         INTEGER003 = 0
  48.         Goto LABEL002
  49.     Else
  50.         INTEGER002 = 0
  51.         Tokenize U_Notes(INTEGER004)
  52.         INTEGER003 = TokCount()
  53.         If (INTEGER003 > 10) Then
  54.             Log "Too many tokens on NOTES line to use Award", 0
  55.             Goto LABEL005
  56.         Endif
  57.         For STRING002 = 1 To INTEGER003
  58.             GetToken TSTRING005(STRING002)
  59.             If (TSTRING005(STRING002) == "BANK") INTEGER002 = STRING002
  60.         Next
  61.         If (INTEGER002 > 0) Goto LABEL004
  62.     Endif
  63.     :LABEL002
  64.     If (INTEGER003 > 7) Then
  65.         Log "Too many tokens on NOTES line for Award.", 0
  66.     Else
  67.         If (InStr(U_Notes(INTEGER004), "               ")) Goto LABEL003
  68.         Log "Not enough room on NOTES line to set up new bank.", 0
  69.         Goto LABEL005
  70.         :LABEL003
  71.         INTEGER002 = INTEGER003 + 1
  72.         INTEGER003 = INTEGER003 + 3
  73.         TSTRING005(INTEGER002) = "BANK"
  74.         TSTRING005(INTEGER002 + 1) = "TIME"
  75.         TSTRING005(INTEGER002 + 2) = 0
  76.         :LABEL004
  77.         TSTRING005(INTEGER002 + 2) = TSTRING005(INTEGER002 + 2) + INTEGER001
  78.         U_Notes(INTEGER004) = TSTRING005(1)
  79.         For STRING002 = 2 To INTEGER003
  80.             U_Notes(INTEGER004) = U_Notes(INTEGER004) + " " + TSTRING005(STRING002)
  81.         Next
  82.         PutUser
  83.         Log "Awarded: " + String(INTEGER001) + "min.      Total Bank time: " + String(TSTRING005(INTEGER002 + 2)) + " min.", 0
  84.         If (Exist(PPEPath() + STRING004)) DispFile PPEPath() + STRING004, 4 + 1
  85.     Endif
  86.     :LABEL005
  87.     End
  88.  
  89. ;------------------------------------------------------------------------------
  90. ;
  91. ; Usage report (before postprocessing)
  92. ;
  93. ; ■ Statements used :
  94. ;
  95. ;    1       End
  96. ;    17      Goto 
  97. ;    18      Let 
  98. ;    11      If 
  99. ;    1       DispFile 
  100. ;    1       GetUser
  101. ;    1       PutUser
  102. ;    5       Log 
  103. ;    2       Tokenize 
  104. ;    7       GetToken 
  105. ;
  106. ;
  107. ; ■ Functions used :
  108. ;
  109. ;    20      +
  110. ;    2       ==
  111. ;    2       <
  112. ;    2       <=
  113. ;    3       >
  114. ;    4       >=
  115. ;    8       !
  116. ;    4       &&
  117. ;    2       ||
  118. ;    1       InStr()
  119. ;    2       String()
  120. ;    2       PPEPath()
  121. ;    1       GetToken()
  122. ;    2       GetEnv()
  123. ;    1       Exist()
  124. ;    1       Psa()
  125. ;    1       TokCount()
  126. ;
  127. ;------------------------------------------------------------------------------
  128. ;
  129. ; Analysis flags : W
  130. ;
  131. ; W - Write user ■ 5
  132. ;     Program writes a user record. Although this may be normal for a
  133. ;     User Editor, it may also be a way to modify an account level.
  134. ;     ■ Search for : PUTUSER
  135. ;
  136. ;------------------------------------------------------------------------------
  137. ;
  138. ; Postprocessing report
  139. ;
  140. ;    2       For/Next
  141. ;    0       While/EndWhile
  142. ;    4       If/Then or If/Then/Else
  143. ;    0       Select Case
  144. ;
  145. ;------------------------------------------------------------------------------
  146. ;                 AEGiS Corp - Break the routines, code against the machines!
  147. ;------------------------------------------------------------------------------
  148.